home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / amos / linkup.amos / linkup.amosSourceCode < prev   
AMOS Source Code  |  1997-01-31  |  983b  |  51 lines
  1. Set Buffer 100
  2. Screen Open 1,320,256,2,Lowres
  3. Input "Level number:";A$
  4. Curs Off : Flash Off : Cls 0
  5. Wait Vbl 
  6. Limit Mouse 
  7. NU=100
  8. Erase 12
  9. Reserve As Work 15,NU^2
  10. Reserve As Work 11,NU^2
  11. Reserve As Work 14,NU^2
  12. Reserve As Work 13,(NU^2)*2
  13. Reserve As Work 12,NU*NU
  14. Pload "ab3:includes/newlinkup.aminc",12
  15. N=Start(12)
  16. Loke N,Start(11)
  17. Loke N+4,Start(14)
  18. Loke N+8,Start(13)
  19. Doke N+12,NU
  20. GO=Start(12)+14
  21. Bload "ab3:levels/level_"+A$+"/twolev.links",Start(11)
  22.  
  23. S=Start(11) : T=Start(15)
  24. For A=0 To NU-1
  25.    For B=0 To NU-1
  26.       If Peek(S)=2
  27.          Poke T,1
  28.       Else 
  29.          Poke T,Peek(S)
  30.       End If 
  31.       Add T,1
  32.       Add S,1
  33.    Next 
  34. Next 
  35.  
  36. Call GO
  37. Bsave "ab3:levels/level_"+A$+"/twolev.map",Start(14) To Start(14)+NU*NU
  38.  
  39. 'S=1 
  40. 'Repeat  
  41. 'Input T 
  42. 'Print Deek(Start(13)+(S*64+T)*2); 
  43. 'S=Peek(Start(14)+64*S+T)
  44. 'Print S and $7F;
  45. 'If S and $80 Then Print "*";
  46. 'Print 
  47. 'Until 0 
  48.  
  49. Loke N,Start(15)
  50. Call GO
  51. Bsave "ab3:levels/level_"+A$+"/twolev.flymap",Start(14) To Start(14)+NU*NU